unit UnMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, UnDataModel, UnLogin, UnDataModule, UnBeheerModules;

type
  TMain = class(TForm)
    MainMenu1: TMainMenu;
    Applicatie1: TMenuItem;
    Onderzoek1: TMenuItem;
    Beheer1: TMenuItem;
    Moduleinstellen1: TMenuItem;
    Rapportage1: TMenuItem;
    Inloggen1: TMenuItem;
    Afmelden1: TMenuItem;
    Afsluiten1: TMenuItem;
    procedure Inloggen1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Afmelden1Click(Sender: TObject);
    procedure Afsluiten1Click(Sender: TObject);
    procedure Rapportage1Click(Sender: TObject);
    procedure Moduleinstellen1Click(Sender: TObject);
  private
    aOnderzoeker : TOnderzoeker;
  public
    procedure EnableMenu;
    property Onderzoeker : TOnderzoeker read aOnderzoeker write aOnderzoeker;
  end;

var
  Main: TMain;

implementation

{$R *.dfm}

procedure TMain.Afmelden1Click(Sender: TObject);
begin
  Onderzoek1.Enabled := false;
  Beheer1.Enabled := false;
  Inloggen1.Enabled := true;
  Afmelden1.Enabled := false;
  Caption := 'Phytotron onderzoeker: afgemeld';
end;

procedure TMain.Afsluiten1Click(Sender: TObject);
begin
  Close;
end;

procedure TMain.EnableMenu;
begin
  Onderzoek1.Enabled := true;
  Beheer1.Enabled := true;
  Inloggen1.Enabled := false;
  Afmelden1.Enabled := true;
  Caption := 'Phytotron onderzoeker: aangemeld';
end;

procedure TMain.FormCreate(Sender: TObject);
begin
  aOnderzoeker := TOnderzoeker.create(DmDatasets);
end;

procedure TMain.Inloggen1Click(Sender: TObject);
begin
  TLoginForm.Create(self);
end;

procedure TMain.Moduleinstellen1Click(Sender: TObject);
var
  Modulebeheer : TModuleBeheer;
begin
  DmDatasets.CdsModuleBeheer.open;
  DmDatasets.CdsOnderzoekerOnderzoeken.close;
  DmDatasets.CdsOnderzoekerOnderzoeken.Params.ParamByName('ID').AsInteger := aOnderzoeker.OnderzoekerId;
  DmDatasets.CdsOnderzoekerOnderzoeken.open;
  DmDatasets.CdssensorTypen.Open;
  ModuleBeheer :=  TModuleBeheer.Create(self);
  Modulebeheer.DmDataSets := DmDataSets;
end;

procedure TMain.Rapportage1Click(Sender: TObject);
begin
  showmessage('export metingen: nog niet geimplementeerd');
end;

end.
